home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / ScriptAuthor-Navigate.dir / Scripts_4_Movie script.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1008 b   |  37 lines
  1. global gNavScriptAuthorWindow, gScriptAuthoringWindow
  2.  
  3. on ChangeWindowSize direction
  4.   set theCurrentRect to the rect of gNavScriptAuthorWindow
  5.   set theCurrentHeight to getAt(theCurrentRect, 4)
  6.   set heightDifference to 258
  7.   if direction = #Expand then
  8.     setAt(theCurrentRect, 4, theCurrentHeight + heightDifference)
  9.   else
  10.     setAt(theCurrentRect, 4, theCurrentHeight - heightDifference)
  11.   end if
  12.   set the rect of gNavScriptAuthorWindow to theCurrentRect
  13. end
  14.  
  15. on DisplayText statusString, commentString
  16.   set the text of member "Status Field" to statusString
  17.   set the text of member "Comment Field" to commentString
  18. end
  19.  
  20. on closeWindow
  21.   if gScriptAuthoringWindow = the stage then
  22.     tell the stage
  23.       forget(gNavScriptAuthorWindow)
  24.       puppetSound(0)
  25.       go("error message")
  26.     end tell
  27.   else
  28.     tell gScriptAuthoringWindow
  29.       forget(gNavScriptAuthorWindow)
  30.       forget(gScriptAuthoringWindow)
  31.     end tell
  32.   end if
  33.   if count(the windowList) < 1 then
  34.     clearGlobals()
  35.   end if
  36. end
  37.